home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 19 / Amiga Plus Leser CD 19.iso / Tools / Freeware / PerfectPaint / rexx / Border / Script&Picture / Scratch.brx < prev    next >
Text File  |  2002-10-07  |  1KB  |  72 lines
  1. /*     arexx Script 
  2. */
  3.  
  4.     options results
  5.     parse ARG Port b
  6.     
  7.     ADDRESS value Port
  8.  
  9.     pp_Progresstext 'Border'
  10.  
  11.     pp_GetWidth
  12.     W=result
  13.     pp_GetHeight
  14.     H=result
  15.     pp_ClosestColor 255 255 255
  16.     White=result
  17.     pp_ClosestColor 0 0 0
  18.     Black=result
  19.  
  20.     pp_StencilOff
  21.     pp_EffectOff
  22.     pp_SpareOnOff
  23.     pp_ComposeReqOff
  24.     pp_Compose 0 100 0
  25.     pp_SetApen Black
  26.     pp_SetBpen White
  27.     pp_Cls
  28.  
  29.     Tot=W+H+5
  30.  
  31.     pp_PenType 1
  32.     pp_PenSize 2
  33.  
  34.     Do i=0 to W-1 by 2
  35.       pp_Progress i Tot        
  36.         i1=random(5,20,time('S'))
  37.         i2=random(5,20,time('S'))
  38.         i3=trunc(random(0,2,time('S')))
  39.         IF i3=1 then DO
  40.             i1=i1*-1
  41.         END
  42.         pp_Line i 0 i+i1 i2
  43.         pp_Line i H-1 i+i1 H-i2
  44.         
  45.     END
  46.  
  47.     Do i=0 to H-1 by 2
  48.       pp_Progress W+i Tot
  49.         i1=random(5,20,time('S'))
  50.         i2=random(5,20,time('S'))
  51.         i3=trunc(random(0,2,time('S')))
  52.         IF i3=1 then DO
  53.             i1=i1*-1
  54.         END
  55.         pp_Line 0 i i2 i+i1
  56.         pp_Line W-1 i W-i2 i+i1
  57.         
  58.     END
  59.  
  60.     pp_EffectOn
  61.     pp_Displace 3
  62.     pp_BoxF 0 0 W-1 H-1
  63.     pp_Median 1
  64.     pp_BoxF 0 0 W-1 H-1
  65.     pp_EffectOff
  66.     
  67.   pp_Progress Tot+2 Tot+5
  68.     pp_SparetoStencil
  69.     pp_InvStencil
  70.  
  71.     EXIT
  72.